|
6
|
How do I put a picture on the control's background
oDCOCX_Exontrol1:BeginUpdate()
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:VisualAppearance:Add(4,"c:\exontrol\images\border.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(5,"CP:4 1 1 -1 -1")
oDCOCX_Exontrol1:BackColorPanels := 0x5000000
oDCOCX_Exontrol1:Format := "1,2,3,4,(5/6/7/8)"
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:EndUpdate()
|
|
5
|
How do I change the control's foreground color
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ForeColor := RGB(120,120,120)
oDCOCX_Exontrol1:VisualAppearance:Add(4,"c:\exontrol\images\border.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(5,"CP:4 1 1 -1 -1")
oDCOCX_Exontrol1:BackColorPanels := 0x5000000
oDCOCX_Exontrol1:Format := "1,2,3,4,(5/6/7/8)"
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:EndUpdate()
|
|
4
|
How do I change the control's background color
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColor := RGB(200,200,200)
oDCOCX_Exontrol1:VisualAppearance:Add(4,"c:\exontrol\images\border.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(5,"CP:4 1 1 -1 -1")
oDCOCX_Exontrol1:BackColorPanels := 0x5000000
oDCOCX_Exontrol1:Format := "1,2,3,4,(5/6/7/8)"
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:EndUpdate()
|
|
3
|
How do I change the control's border, using your EBN files
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Appearance := 0x1000000 |
oDCOCX_Exontrol1:VisualAppearance:Add(4,"c:\exontrol\images\border.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(5,"CP:4 1 1 -1 -1")
oDCOCX_Exontrol1:BackColorPanels := 0x5000000
oDCOCX_Exontrol1:Format := "1,2,3,4,(5/6/7/8)"
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:EndUpdate()
|
|
2
|
How do I remove the control's border
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Appearance := None2
oDCOCX_Exontrol1:VisualAppearance:Add(4,"c:\exontrol\images\border.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(5,"CP:4 1 1 -1 -1")
oDCOCX_Exontrol1:BackColorPanels := 0x5000000
oDCOCX_Exontrol1:Format := "1,2,3,4,(5/6/7/8)"
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1
|
How can I change the control's font
local f as stdFont
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(4,"c:\exontrol\images\border.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(5,"CP:4 1 1 -1 -1")
oDCOCX_Exontrol1:BackColorPanels := 0x5000000
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
f := stdFont{"StdFont"}
f:Name := "Verdana"
f:Size := 12
oDCOCX_Exontrol1:Font := f
oDCOCX_Exontrol1:Format := "" + CHR(34) + "static text" + CHR(34) + "[fg=255][a=17],11,22,(33/44)"
oDCOCX_Exontrol1:EndUpdate()
|